-- card: 8719 from stack: in.3
-- bmap block id: 0
-- flags: 0000
-- background id: 2663
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=280 top=23 right=64 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Super Print
----- HyperTalk script -----
on copyright

  -- Super Print, Copyright by Mac Help Co., January 1988
  -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  -- Long Beach, CA  90805, (213) 428-7414
  --      The script for this button is copyrighted and may not be
  --      used without the written permission of the author (above).

end copyright


on mouseUp
  Global Report, ClearedActivity, LastID

  answer "How would you like to print?" with "Print Report" or "Actual Cards" or "CANCEL"
  if it is "CANCEL" then pass mouseUp

  set lockscreen to true
  if it is "Print Report" then
    doMenu "Page Setup..."
    set Lockscreen to True
    doMenu "Print Report..."
  end if
  if it is "Actual Cards" then
    answer "How would you like to print?" with "CANCEL" or "This Card" or "All Cards"
    if it = "Cancel" then pass mouseUp
    if it = "This Card" then
      open printing
      print this card
    end if
    if it = "All Cards" then
      answer "Print all cards in this background or all cards in this stack?" with "CANCEL" or "Background" or "Stack"
      if it = "Cancel" then pass mouseUp
      if it is "Background" then
        push card
        set lockscreen to true
        go to last card of this background
        put the number of this card into LastCard
        go to first card of this background
        put the number of this card into FirstCard
        put LastCard-FirstCard+1 into HowMany
        open printing with dialog
        Print HowMany Cards
        close printing
        pop card
      else
        push card
        open printing with dialog
        print all cards
        close printing
        pop card
      end if
    end if
  end if
  close printing
  set lockscreen to false

end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=325 top=24 right=39 bottom=385
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: See Script
----- HyperTalk script -----
on mouseUp
  edit script of card button "Super Print"
end mouseUp


-- part contents for background part 8
----- text -----
Card 17 of 20

-- part contents for background part 9
----- text -----
SUPER PRINT

This button allows for a wide variety of printing options.

-- part contents for card part 2
----- text -----
See Script